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3 

deers: 

CCCCCCCC «OHH HH KK KK HH HH DDDDDDDD RRRRRRRR 3 
CCCCCCCC OHH HH KK KK HH HH DDDDDDDD RRRRRRRR 3 
cc HH HH KK KK HH HH DD DD RR RR 3 
cc HH HH KK KK HH HH DD DD RR RR 3 
cc HH HH KK KK HH HH DD DD RR RR 3 
cc H HH KK KK HK HH DD DD RR RR 3 
cc HHHHHHHHHH = KKKKKK HHHHHHHHHH =D DD RRRRRRRR : 
cc HHHHHHHHHH = KKKKKK HHHHHHHHHH DD DD RRRRRRRR 3 
cc HH HH KK KK HH HH DD DD RR RR | : 
cc HH HH KK KK HH HH DD DD RR RR 3 
cc HH HH KK KK HH HH DD DD RR RR shea 3 
cc HH HH KK KK HH HH DD DD RR RR cows ; 
CCCCCCCC OHH HH KK KK HH HH DDDDDDDD RR RR sini $ 
CCCCCCCC OHH HH KK KK HH HH DDDDDDDD RR RR nad : 

| ° 

LL 1111 SSSSSSSS | 3 
LL eee SSSSSSSS ; 
LL I] ss 3 
LL Il Ss 3 
LL II $$ | ; 
tL I] $s 5 
LL II SSSSSS 3 
LL II SSSSSS : 
LL 11 SS 3 
LL I] SS 3 
LL II Ss : 
LL I] ss | 3 
LLLLLLELLLL HII] SSSSSSSS ; 
LLLLLLLLLL HII SSSSSSSS | ; 
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BEGIN 


| 

' 

3 | 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH becceee wy ae Mi, 4 


2¢ 


sss 


i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
!@ TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
‘* CORPORATION, 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 
7 ' This routine verifies that the block given it is in fact a 
0038 ! file header. If file number and/or file seqence number are also 
3 39 ! suppl ted, they are checked as well. 
‘ O40 ; ENVIRONMENT : 
4 Beg i STARLET operating system, including privileged system services | 
4 004 i and internal exec routines. 
4 044 ! 
4 G94 = 
4 pee ' 
4 Bie ‘ 
: Dee : AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 16:11 
5 0030 ! MODIFIED BY: 
3 O3¢ i ~ ~0101 ACG0146 Andrew C. Goidstein, 22-Feb-1980 21:42 
; Bez Change file sequence number check to no such file 
055 1} A0100 ACGO0001 = —_ Andrew C. Goldstein, 10-Oct-1978 20:02 | 
ones co Previous revision history moved to F11A.REV 


CHK 
v04 


1$Se0c19Re 90:48:19 yaacdt atisees2 yes 


-7%4 
BORE ICHKHDR.B32:1°%" (15 


7 } 
1b-Se -1984 249:4 VAX=-11 V4.0-74 Page 3 
12-9 08- 1 3b 99:53:49 ISK$V F11A.SRCICHKHDR.B32;1 ° (2). 


3 $3 16 ! GLOBAL ROUTINE CHECK_HEADER (HEADER, FILE_ID) = 

3 65 4 1 !+¢ 

; 08 79 1! 

; a4 e} } FUNCTIONAL DESCRIPTION: 

: +4 § ie This routine verifies that the block given it is in fact a 
3 0 85 1! file header. If file number and/or file seqence number are also 
: f} Se : supplied, they are checked as well. 

3 ig 56 1 ! CALLING SEQUENCE: 

3 ie tf : CHECK_HEADER (ARG1, ARG2) 

; rg 89 1 ! INPUT PARAMETERS: 

a 2 90 1! ARG1: address of header image 

; 78 91 1! ARG2: address of file ID 

; 3 1! 

5 ny) 93 1! IMPLICIT INPUTS: 

3 1 9% «1! NONE 

; & 0395 1! 

3 : 0 96 1 ! OUTPUT PARAMETERS: 

; 4 0397 1! NONE 

3; 83 0398 1! 

; @ 8 99 1 ! IMPLICIT OUTPUTS: 

s. oe 400 1! USER_STATUS contains code if not valid 

; 88 0401 1! 

; 89 ot 4 1 ! ROUTINE VALUE: 

; 0405 1! 0 if garbage 

; | (91 0406 1! 1 if valid and correct file header 

> oF 1! 2 if deleted file header 

5 G 406 1! 

: 6494 0407 1 ! SIDE EFFECTS: 

; 0408 1! NONE 

; «9% 0409 1! 

s 7 0410 1 !-- 

; 0411 1 

; 99 Belg BEGIN 

; 100 041 

3 101 0414 MAP 

; 106 0415 HEADER : REF BBLOCK, ! file header arg 

; 10 0416 FILE_ID : REF BBLOCK; ! file ID arg 

; 104 0417 

; 105 0418 LOCAL : 

: 196 Be 35 MAP_AREA : REF BBLOCK; ! pointer to header map area 
; 108 0421 EXTERNAL ROUTINE : 

3 1% 4 § CHECKSUM; ! compute file header checksum 
3; (111 424 

: Ng 5 ! First check the structure level. 

it at 

3: «115 8 IF .HEADERCFH1$W_STRUCLEV) NEQ FHISC LEVEL) 

: 116 ° ; THEN (ERR_STATUS” (SS$_FILESTRUCT); RETURN 0); 

; 118 431 ! Now point to the map area and make sure that the extension 
3; #4119 0432 ! RVN is zero (no multi-volume supported yet.) 
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; 120 S 3 ! Also check the retrieval pointer format data. 
$ : 1 “& ¢ : 

|; ! § ? | MAP_AREA = .HEADER + .HEADERCFHISB_MPOFFSETIJ*#2; 
: 125 438 ¢ IF .MAP_AREACENISB_EX RUN] NEQ 0 
g S 4 OR .MAP_AREALFM1$B8_COONTSIZEJ NEQ 1 
3 440 OR .MAP_AREALFM1$B watt: NEQ 
; : 8 oe) THEN (ERR_STATUS (SS$_FILESTRUCT); RETURN 0); 
: 130 rk ! Check the retrieval pointer counts for consistency with the | 
s 13) 4G ' available space. 
; : ¢ ret : 
> 134 103 IF .MAP_AREACFM1$B_INUSE] GTRU .MAP_AREACFM1$B_AVAIL] 
s 1355 +68 OR .MAP_AREALFM1$B AVAIL 
; 1 $ 44 255 = (.MAP_AREA + FMISC_POINTERS - laneen) fz 
3 138 poet THEN (ERR_STATUS (SS$_BADFILEHDR); RETURN 0); 
: 139 0458 ! At this point, we have verified that the block at least once was a 
; Pe etd : valid file header. 
: 136 0455 i Look at the file number in the header. If zero, this is a | 
3 14 0456 ' deleted header. 
> 144 0457 2 | | 
s 45 Bees 
3: «6146 459 IF .HEADERCFH1$W_FID_NUM) EQL 0 
3 +h 4 poet THEN (ERR_STATUS” (SSS_NOSUCHFILE); RETURN 2); 
: 149 046¢ ' Now compute the header checksum. | 
; 150 046 : 
s 33) 0464 
; 136 0465 IF NOT CHECKSUM (.HEADER) 
3 137 Beo8 THEN (ERR_STATUS (SS$_BADCHKSUM); RETURN 2); 
: 155 0468 ! Check file number and file sequence number. 
: 439 oc70 3 | 
: 158 0471 2 IF .HEADERCFH1$W_FID_NUM) NEQ .FILE_IDCFIDSW_NUM) 
; 13 nef THEN (ERR_STATUS” (SSS$_FILENUMCHK); RETURN 2); 
: 161 0474 IF .HEADERCFHISW_FID SEQ) NEQ .FILE IDCFIDS$W_SEQ) | 
; 16¢ B67 THEN (ERR_STATUS (SSS_NOSUCHFILE); RETURN 2); 
: 164 ee] ' Header is ok. 
; 165 0478 ‘ 
: 166 0479 
: 167 480 RETURN 1; 
: 168 481 ; 
: «169 0482 1 END; ! end of routine CHECK_HEADER 


-TITLE CHKHDR 
-IDENT \V04-000\ 


~-EXTRN CHECKSUM, USER_STATUS 


CHKHDR 
v04-000 


198¢ 92:39:19 DISksunsmaste 


~PSECT SCODES,NOWRT,2 


32_V4.0-742 p | 
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000c¢ 000 -ENTRY CHECK_HEADER, Save R2,R3 3 0376) 
53 000000006 00 $5 B09 MOVAB USER STATUS, Ra : | 
4 AC O $ MOVL HEADER, R 3 0428. 
0101 = &F 6 A 8 cMPW (Re), #257 : 
50 01 A2 9A 0001 MOVZBL 1(R2), RO + 0436 
50 02th 3 019 MOVA (R2)CROJ, MAP_AREA : 
01 A 001D TSTB. «1 (MAP_AREA) : 0438 
0c Ie 0020 BNEQ ~=‘1$ : 
01 06 AO 9 00 CMPB = 6(MAP_AREA), #1 + 0439 
0 Ne 0 BNEQ 18 : 
03 07 A 9 00 CMPB 7(MAP_AREA), #3 : 0440) 
OA 13 0002¢ BEQL 2 : 
73 63 £9 O002E 1$ BLBC USER STATUS, 10$ + 0441 
63 08cO 8F B80 00031 MOVW #2240, USER_STATUS : 
6c 11 00056 BRB 10$ : | 
09 Ad 08 AO 91 00038 2$ CMPB (MAP_AREA), 9(MAP_AREA) 3 0447 
171A 9003p BGTR : 
51 52 50 C3 0003F SUBL MAP_AREA, R2, R1 : 0449) 
51 OA C2 00043 SUBL2 #107 R1 : 
51 02 ¢6 00046 DIVL2 #2, R1 : | 
51 OOFF C1 SE 00049 MOVAB 255(R1), R1 : 
51 09 AO 08 00 ED O004E CMP7V #0, #8, 9(MAP_AREA), R1 : 
OA 18 00054 BLEQU : | 
4B 63 £9 00056 3s: BLBC -USER_STATUS, 10$ + 0450 
63 0810 8F B80 00059 MOVW 206%, USER_STATUS ; | 
44 11 00056 BRB 10$ ; 
02 A2 83 00060 4$: TSTW © 2(R2) * 0459 
ef 13 00063 BEQL 7$ ; 
2 DD 00065 PUSHL R2 + 0465 
00006 CF 01 FB 00067 CALLS #1, CHECKSUM F 
OA 50 E 9006¢ BLBS : 
2A 63 £9 O006F BLBC —_—*USER_STATUS, 8$ + 0466 
63 0808 8F B60 0007¢ MOVW #2056, USER_STATUS ; 
23 11 0007 BRB 8$ ; 
50 08 AC 00 00079 S$: MOVL PILE 1D, RO > 0471 
60 02 A2 B81 0007D CMPW 3s 2 (R2T, (RO) : 
OA 13 90081 BEQL -6$ ; 
1 63 £9 00083 BLBC USER STATUS, 8$ > 0472 
6 0880 8F BO 00086 MOVW #2226, USER_STATUS 3 
OF 11 0008B BRB eh F 
02 Ad 04 A2 81 9080 6$: CMPW 3s &(R2), 2(RO) = 0474 | 
0¢ ; BEQL 9$ ; 
05 6 £ 0094 7$: BLBC 3=OsiéWJ ER STATUS, 8$ + 0475 
63 0910 F 4 97 MOVW #2320 USER_STATUS 3 
50 02 p 009C 8$ MOVL #2, RO : 
4 0009F RET : 
50 01 dO OOA0 9$: MOVL #1, RO + 0480 
4 OOOA RET : 
50 D4 OO0A4 108: cCERL RO > 0482 
4 QO0A6 RET 3 


; Routine Size: 167 bytes, Routine Base: $CODE$S + 0000 
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PSECT SUMMARY 


Bytes 


167 NOVEC,NOWRT, RD, EXE,NOSHR, 


Library Statistics 


Attribute 
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Total 
18619 


idaded Percent 
19 0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CHKHDR/OBJ=OBJ$:CHKHDR MSRC$:CHKHDR/UPDATE=(ENHS$: CHKHDR) 


; Size: a a: a + 0 data bytes 


8c 18:35:19 


s 
LCL, REL, 


Pages 
Mapped 


1000 


VAX=11 Bliss-32 V4 
Disk SKSVMSMASTER:CF1 


CON,NOPIC,ALIGN(2) 


Processing 
Time 


00:02.0 


i 


0-742 
A.SRC 


JCHKHOR B32; ; 


* 


IPMENT CORPOR 
L AND PROPRIE 


AH-BT1i3A-SE 
VAX/VMS V4.0 


O16 


